If Time0 < "0:10:00" And Time0 > "0:00:00" Then

来源:百度知道 编辑:UC知道 时间:2024/05/01 18:06:57
If Time0 < "0:10:00" And Time0 > "0:00:00" Then
Text1.Text = App.Path + "\" + Trim(Str(Year(Date))) + Trim(Str(Month(Date))) + Trim(Str(Day(Date) - 1)) + ".txt"
Else
Text1.Text = App.Path + "\" + Trim(Str(Year(Date))) + Trim(Str(Month(Date))) + Trim(Str(Day(Date))) + ".txt"
End If
Pd = False

谁能帮我解析一下
尤其是If Time0 < "0:10:00" And Time0 > "0:00:00"是什么意思啊
End Sub

If Time0 < "0:10:00" And Time0 > "0:00:00" Then 判断时间是不是在12点到12点10分之间

Text1.Text = App.Path + "\" + Trim(Str(Year(Date))) + Trim(Str(Month(Date))) + Trim(Str(Day(Date) - 1)) + ".txt"
如果在这个时间段内的话,Text1显示为程序运行路径加上电脑当前日期前一天的日期为文件名的TXT文件

Else
Text1.Text = App.Path + "\" + Trim(Str(Year(Date))) + Trim(Str(Month(Date))) + Trim(Str(Day(Date))) + ".txt"
否则Text1显示为程序运行路径加上电脑当前日期的日期为文件名的TXT文件

End If

Text1.Text里边放的应该是文件名,只不过你的文件名是用日期命名的(例如:如果是2007年6月9日建立的文件,其文件名就是20070609.txt),如果是在一天的0点到0点10分之间建立的文件就用前一天的年月日作为文件名,否则就用当天的日期作为文件名。If Time0 < "0:10:00" And Time0 > "0:00:00"就是说时间在0点到0点10分之间